home *** CD-ROM | disk | FTP | other *** search
/ James Halliday Interactive Wine Companion 1999 / James Halliday Interactive Wine Companion: 1999 Edition.iso / mac / Wine—drag to hard disk folder / Cellar.WOR (.txt) next >
FileMaker Pro Database  |  1998-07-28  |  98KB  |  939 lines

  1.  work makAll play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All 
  2. HBAM2016AUG95
  3. Pro 3.0
  4.  All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a goodCopyright 1984-1997 Claris Corporation
  5.  and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. All play and no work makes John a good boy. 
  6. bleasdale
  7. passing
  8. clouds
  9. cabernet
  10. shiraz@
  11. taltarni
  12. shiraz@
  13. QUANTITY REMAINING
  14. FaliA
  15. HBAM3016AUG95
  16. SCNFG
  17. 2STR 
  18. >vers
  19. This copy will expire on ^0.
  20. Other
  21. 1st Quarter
  22. 2nd Quarter
  23. 3rd Quarter
  24. 4th Quarter
  25. Date CreatedB
  26. Vintage IDB
  27. VintageB
  28. FOUND RECORD COUNT
  29. QUANTITY REMAINING
  30. MSPC@
  31. alisA
  32. FaliA
  33. alisA
  34. `RgSd]
  35. 7/28/98
  36. BEST DRINKING FROM
  37. BEST DRINKING SPAN
  38. BEST DRINKING TO
  39. BOTTLE SIZE
  40. BSELECTED ENTRY
  41. BTRUE
  42. CELLAR LOCATION
  43. CELLAR RECORD VALUE
  44. CELLARING TIME
  45. DATE CREATED
  46. DATE OF PURCHASE
  47. IMPORT CELLAR LOCATION
  48. IMPORT CELLAR TIME
  49. IMPORT DATE OF PURCHASE
  50. IMPORT GUESS LABEL
  51. IMPORT GUESS VARIETY
  52. IMPORT GUESS WINERY
  53. IMPORT PRESENT VALUE
  54. IMPORT PURCHASE PRICE
  55. IMPORT QTY CONSUMED
  56. IMPORT QTY PURCHASED
  57. IMPORT SUPPLIER
  58. IMPORT WINE LOOKUP ID
  59. IMPORT WINE NAME
  60. IMPORT WINE STYLE
  61. IMPORT WINE VINTAGE
  62. IMPORT YEAR TO DRINK
  63. PRESENT VALUE
  64. PURCHASE PRICE
  65. QUANTITY BOTTLES PURCHASED
  66. QUANTITY CASES PURCHASED
  67. QUANTITY CONSUMED
  68. Print Summary (List)
  69. Print Form
  70. Startup
  71. FormB
  72. QUANTITY REMAINING
  73. SCRIPT RESULT
  74. SORT WINE NAME
  75. SUPPLIER
  76. TOTAL CELLAR VALUE
  77. TOTAL REMAINING
  78. VARIETY CHAR POS
  79. VARIETY WORD COUNT
  80. VIEW OLD WINE NAME
  81. VINTAGE
  82. VINTAGE ID
  83. WINE ID
  84.     WINE NAME
  85. WINE STYLE
  86. WINERY NAME
  87. WINERY WORD COUNT
  88. X YEAR TO DRINK
  89. Date CreatedB
  90. Vintage IDB
  91. VintageB
  92. Cellar LocationB
  93. Cellaring TimeB
  94. x Year to drinkB
  95. Date of PurchaseB
  96. SupplierB
  97. Purchase PriceB
  98. Present ValueB
  99. Quantity Bottles PurchasedB
  100. Quantity ConsumedB
  101. Quantity RemainingB
  102.  + 12 * 
  103. InfoB
  104. Winery NameB
  105. A    Wine Name
  106. Wine IDB
  107. bSelected EntryB
  108. script resultB
  109. Wine StyleB
  110. Cellar Record ValueB
  111. Total Cellar ValueB
  112. import Wine NameB
  113. view old Wine NameB
  114.  & " - " & 
  115.  & "  Style: " & 
  116.       Style: 
  117. import Wine VintageB
  118. import Wine StyleB
  119. import Cellar LocationB
  120. import Cellar Time
  121. import Year to DrinkB
  122. import Date of PurchaseB
  123. import SupplierB
  124. import Purchase PriceB
  125. import Present ValueB
  126. import Qty PurchasedB
  127. import Qty ConsumedB
  128. Import Wine Lookup IDB
  129.  & ":" & 
  130. Sort Wine NameB
  131. bTrueB
  132. Quantity Cases PurchasedB
  133. Bottle SizeB
  134. import guess WineryB
  135. import guess LabelB
  136. import guess VarietyB
  137. tempB
  138. winery word countB
  139. variety char posB
  140. variety word countB
  141. Best Drinking SpanB
  142. Best Drinking FromB
  143. Best Drinking ToB
  144. Total RemainingB
  145. Found Record CountB
  146. zw23q
  147.  Limited Releaseq
  148. Print Summary (List)B
  149. Date CreatedF
  150. Vintage IDL
  151. Vintage(
  152. Date CreatedF
  153. Vintage IDL
  154. Vintage
  155. Cellar LocationP
  156. Cellaring TimeR
  157. x Year to drinkT
  158. Date of PurchaseV
  159. SupplierX
  160. Purchase PriceZ
  161. Present Value\
  162. Quantity Bottles Purchased^
  163. Quantity Consumed`
  164. Quantity Remainingb
  165. Infod
  166. Winery Namef
  167. bSelected Entryh
  168. script resultj
  169. Wine Stylel
  170. Wine IDn
  171. import Wine Namer
  172. import Wine Stylev
  173. Import Wine Lookup IDx
  174. Cellar Record Value|
  175. bTrue
  176. import vintage lookup ID
  177. import wine lookupID
  178. import Wine Name
  179. import guess Winery
  180. import guess Label
  181. import guess Variety
  182. Best Drinking Span
  183. Print FormB
  184. A    Wine nameC
  185. VintageD
  186. Cellar locationK
  187. Qty T
  188. Page ##X
  189. Total Cellar Value^
  190. Value_
  191. Cellar List
  192. A    Wine nameC
  193. VintageD
  194. Cellar locationK
  195. Qty T
  196. Page ##X
  197. Total Cellar Value^
  198. Value_
  199. Cellar Listllar Listr List List
  200. Total Bottles
  201. StartupB
  202. 28/7/98K
  203. mineO
  204. 2122U
  205. urif_
  206. 1/1/93c
  207. cellar doord
  208. 1998w
  209. 1998x
  210. -2327B
  211. 24/7/98C
  212. 1/1/95K
  213. cellarL
  214. Morris Durif]
  215. 1992^
  216. Durif_
  217. 1/1/95c
  218. cellar doord
  219. 2000w
  220. 2000x
  221. -2328B
  222. 24/7/98C
  223. -5124G
  224. 1/1/95K
  225. cellarL
  226. Morris Durif]
  227. 1993^
  228. Durif_
  229. 1/1/95c
  230. cellar doord
  231. 2001w
  232. 2001x
  233. -2329
  234. FOUND RECORD COUNT
  235. IMPORT CELLAR LOCATION
  236. IMPORT CELLAR TIME
  237. IMPORT DATE OF PURCHASE
  238. IMPORT GUESS LABEL
  239. IMPORT GUESS VARIETY
  240. IMPORT GUESS WINERY
  241. IMPORT PRESENT VALUE
  242. IMPORT PURCHASE PRICE
  243. IMPORT QTY CONSUMED
  244. IMPORT QTY PURCHASED
  245. IMPORT SUPPLIER
  246. IMPORT WINE LOOKUP ID
  247. IMPORT WINE NAME
  248. IMPORT WINE STYLE
  249. IMPORT WINE VINTAGE
  250. IMPORT YEAR TO DRINK
  251. PRESENT VALUE
  252. PURCHASE PRICE
  253. QUANTITY BOTTLES PURCHASED
  254. QUANTITY CASES PURCHASED
  255. QUANTITY CONSUMED
  256. ABBD>> <<
  257. AFAAABACABAC>>C
  258. LocationE
  259. Date of purchase:O
  260. Qty consumed:Q
  261. Qty remaining:S
  262. Cellaring notesa
  263. Cellaring time:c
  264. Bottle size:e
  265. Bottles purchased:g
  266. Cases purchased:i
  267. Price paid:k
  268. Present value:m
  269. Best drinking to:n
  270. Best drinking from:p
  271. Page ##q
  272. Cellar Record
  273. No. of bottles in cellar
  274. Total cellar Value
  275. No. of entries|
  276. Supplier
  277. Pro 3.0 - 4.0F!
  278. Sunday
  279. Monday
  280. Tuesday
  281.     Wednesday
  282. Thursday
  283. Friday
  284. Saturday
  285. January
  286. February
  287. March
  288. April
  289. August
  290.     September
  291. October
  292. November
  293. December
  294. 1st Quarter
  295. 2nd Quarter
  296. 3rd Quarter
  297. 4th Quarter
  298. FMRLA
  299. FMRLA
  300. FMRLA
  301. FMRLA
  302. FMRLA
  303. VintageC
  304. WinesD
  305. Import Wine LookupE
  306. Import Vintage LookupH
  307. Guess Winery
  308.  = 0 
  309.  <> 0
  310.  = 0 
  311. XQCreate a new wine and vintage, split our wine name into 3 parts and assign it allY
  312. @MSPC
  313. FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 
  314. 98:Wine CD:Databases:Wines.WOR
  315. MSPCA
  316. NAMEA
  317.     Wines.WOR
  318. RPTHA    Wines.WOR
  319. nes.WOR
  320. 0jFMP3FMP3
  321.     Databases
  322. @4Tune:Jobs:Wine Guide:Wine Guide 
  323. 98:Wine CD:Databases:Wines.fp3
  324. Spice Girls
  325. 4Tune
  326.     John Cook
  327. MSPCA
  328. NAMEA
  329.     Wines.WOR
  330. RPTHA    Wines.WOR
  331. CMSPC
  332. FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 
  333. 98:Wine CD:Databases:Vintages.WOR
  334. MSPCA
  335. NAMEA
  336. Vintages.WOR
  337. RPTHA
  338. Vintages.WOR
  339. ges.WOR
  340. 0iFMP3FMP3
  341.     Databases
  342. C4Tune:Jobs:Wine Guide:Wine Guide 
  343. 98:Wine CD:Databases:Vintages.fp3
  344. Spice Girls
  345. 4Tune
  346.     John Cook
  347. MSPCA
  348. NAMEA
  349. Vintages.WOR
  350. RPTHA
  351. Vintages.WOR
  352. Q3Look for existing wine & vintages and set their IDsRV
  353.  = 0 
  354.  <> 0
  355. The following steps fail with the Vintage:: relationship because Vintage ID is required for it to work. The new relationship is bound to have at least one match. V
  356.  = 0 
  357. ZQCreate a new wine and vintage, split our wine name into 3 parts and assign it all[
  358. CMSPC
  359. FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 
  360. 98:Wine CD:Databases:Vintages.WOR
  361. MSPCA
  362. NAMEA
  363. Vintages.WOR
  364. RPTHA
  365. Vintages.WOR
  366. ges.WOR
  367. FMP3FMP3
  368.     Databases
  369. C4Tune:Jobs:Wine Guide:Wine Guide 
  370. 98:Wine CD:Databases:Vintages.fp3
  371. Spice Girls
  372. 4Tune
  373.     John Cook
  374. 4Tune
  375. MSPCA
  376. NAMEA
  377. Vintages.WOR
  378. RPTHA
  379. Vintages.WOR
  380. ) > 0    
  381. 8EJNow copy all the fields, replacing auto-entered values, and stripping muckF
  382. @MSPC
  383. FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 
  384. 98:Wine CD:Databases:Wines.WOR
  385. MSPCA
  386. NAMEA
  387.     Wines.WOR
  388. RPTHA    Wines.WOR
  389. nes.WOR
  390. vFMP3FMP3
  391.     Databases
  392. @4Tune:Jobs:Wine Guide:Wine Guide 
  393. 98:Wine CD:Databases:Wines.fp3
  394. Spice Girls
  395. 4Tune
  396.     John Cook
  397. 4Tune
  398. MSPCA
  399. NAMEA
  400.     Wines.WOR
  401. RPTHA    Wines.WOR
  402. bleasdale
  403. vintage
  404. port@
  405. coriole
  406. shiraz@
  407. estate@
  408. passing
  409. clouds
  410. angel
  411. blend@
  412. penfolds@
  413. water@
  414. FaliA
  415. alisA
  416. 1 + 1
  417. 0) - 
  418. MSPCA
  419. NAMEA
  420. Vintages.WOR
  421. RPTHA
  422. Vintages.WOR
  423. FMP3FMP3
  424.     Databases
  425. C4Tune:Jobs:Wine Guide:Wine Guide 
  426. 98:Wine CD:Databases:Vintages.fp3
  427. Spice Girls
  428. 4Tune
  429.     John Cook
  430. 4Tune
  431. MSPCA
  432. NAMEA
  433. Vintages.WOR
  434. RPTHA
  435. Vintages.WOR
  436. @MSPC
  437. FPTHA@4Tune:Jobs:Wine Guide:Wine Guide 
  438. 98:Wine CD:Databases:Wines.WOR
  439. MSPCA
  440. NAMEA
  441.     Wines.WOR
  442. RPTHA    Wines.WOR
  443. nes.WOR
  444. vFMP3FMP3
  445.     Databases
  446. @4Tune:Jobs:Wine Guide:Wine Guide 
  447. 98:Wine CD:Databases:Wines.fp3
  448. Spice Girls
  449. 4Tune
  450.     John Cook
  451. 4Tune
  452. MSPCA
  453. NAMEA
  454.     Wines.WOR
  455. RPTHA    Wines.WOR
  456. 2Go to Cellar Item in Vintage DB, returning ordinal
  457. Select All
  458. Select by Chosen Wine Name
  459. New User Cellar Item
  460. 0Delete Cellar Item by Vintage::Chosen Vintage ID
  461. $x Print Cellar Item List (Found Set)
  462. Print Cellar Item List (All)
  463. $Print Cellar Items of Chosen Vintage
  464. Import 
  465. 98 Cellar
  466. Print Mac - Browsed Records
  467. Print Mac - Current Record
  468. Print Win - Browsed Records
  469. Print Win - Current Record
  470. Print - Browsed Records
  471. Print - Current Record
  472. Reclassify Wine & Vintage
  473. Split Wine Name
  474. Import 
  475. 98 Cellar Copy
  476. A2Go to Cellar Item in Vintage DB, returning ordinal
  477.     Helvetica
  478. Geneva
  479. CMSPC
  480. FPTHAC4Tune:Jobs:Wine Guide:Wine Guide 
  481. 98:Wine CD:Databases:Vintages.WOR
  482. ges.WOR
  483. FaliFaliliFalili
  484. Find all cellar items for the chosen vintage ID. Step through them all, returning the ordinal of the chosen Cellar ID within this set. Then go to the related Vintage record. B!
  485. Select All
  486. v _$HUOp
  487. PHPHx
  488. N^ _O
  489. Select by Chosen Wine Name
  490. v _$HUOp
  491. PHPHx
  492. N^ _O
  493. xN^ _O
  494. ~\ON^.
  495. IaWe must keep the selected set as the found set, for purposes of total cellar value calculations. 
  496. New User Cellar Item
  497. A0Delete Cellar Item by Vintage::Chosen Vintage ID
  498. A.Allow user to click delete in new empty portalB,
  499. ) >= 1    
  500. Import 
  501. 98 Cellar
  502. ) > 0    
  503. 8EJNow copy all the fields, replacing auto-entered values, and stripping muckF
  504. 8P3Look for existing wine & vintages and set their IDsQy
  505.  > 0 
  506.  > 0 
  507.     A$x Print Cellar Item List (Found Set)
  508. @assign it allY
  509.     A$x Print Cellar Item List (Found Set)
  510. A.Find all selected entries (bSelectedEntry = 1)
  511. A$Print Cellar Items of Chosen Vintage
  512. A.Print all items of Vintages::Chosen Vintage IDB!
  513. ) = 0    
  514. Cancel
  515. There are no cellar items to print.
  516. Print Mac - Browsed Records
  517. Print Mac - Current Record
  518. Print Win - Browsed Records
  519. Apple LaserWriter Select 360
  520. Print Win - Current Record
  521. Print - Browsed Records
  522. ) = 1    
  523. Print - Current Record
  524. ) = 1    
  525. Print Cellar Item List (All)
  526. A.Find all selected entries (bSelectedEntry = 1)
  527. Reclassify Wine & Vintage
  528. -4425
  529. Apple LaserWriter Select 360
  530. AEReassign Wine and Vintage IDs according to globals in the Vintages DBB#
  531. ) > 0    
  532. Split Wine Name
  533. 'AETry to match the winery name, starting with 4 words, then try 3, 2, 1B
  534. 1 = 0
  535.  <> 0
  536. 1 - 1
  537. HGWe have found a winery name of 'count' words, or we haven't (count = 0)
  538. Try to match the variety by locating known words. Look for less common words first (first 'SetField') - then see if any of our common variety words come earlier (other 'SetField's)
  539.  "Barbera"
  540.  "Barbera"
  541.  "Blanc"
  542.  "Blanc"
  543.  "Botrytis"
  544.  "Botrytis"
  545.  "Brut"
  546.  "Brut"
  547.  "Burgundy"
  548.  "Burgundy"
  549.  "Cabernet"
  550.  "Cabernet"
  551. Import 
  552. 98 Cellar Copy
  553.  "Cabernet"
  554.  "Cabernet"
  555.  "Chambourcin"
  556.  "Chambourcin"
  557.  "Chardonnay"
  558.  "Chardonnay"
  559.  "Chenin"
  560.  "Chenin"
  561.  "Claret"
  562.  "Claret"
  563.  "Classic"
  564.  "Classic"
  565.  "Colombard"
  566.  "Colombard"
  567.  "Coonawarra Red"
  568.  "Coonawarra Red"
  569.  "Cuv
  570.  "Cuv
  571.  "Dry"
  572.  "Dry"
  573.  "Durif"
  574.  "Durif"
  575.  "Franc"
  576.  "Franc"
  577. Frontignac"
  578.  "Frontignac"
  579.  "Fum
  580.  "Fum
  581.  "Gamay"
  582.  "Gamay"
  583.  "Gew
  584. rztraminer"
  585.  "Gew
  586. rztraminer"
  587.  "Grenache"
  588.  "Grenache"
  589.  "Hermitage"
  590.  "Hermitage"
  591.  "Liqueur"
  592.  "Liqueur"
  593.  "Malbec"
  594.  "Malbec"
  595.  "Marlborough"
  596.  "Marlborough"
  597.  "Marsanne"
  598.  "Marsanne"
  599.  "Merlot"
  600.  "Merlot"
  601.  "Methode"
  602.  "Methode"
  603.  "Meunie
  604.  "Meunier"
  605.  "Mourvedre"
  606.  "Mourvedre"
  607.  "Muscat"
  608.  "Muscat"
  609. thode"
  610. thode"
  611.  "Oaked"
  612.  "Oaked"
  613.  "Old"
  614.  "Old"
  615.  "Petit"
  616.  "Petit"
  617.  "Pinot"
  618.  "Pinot"
  619.  "Port"
  620.  "Port"
  621.  "Rosato"
  622.  "Rosato"
  623.  "Ros
  624.  "Ros
  625.  "Roussanne"
  626.  "Roussanne"
  627.  "Sangiovese"
  628.  "Sangiovese"
  629.  "Sauvignon"
  630.  "Sauvignon"
  631.  "Semillon"
  632.  "Semillon"
  633.  "Sherry"
  634.  "Sherry"
  635.  "Shiraz"
  636.  "Shiraz"
  637.  "Sparkling"
  638.  "Sparkling"
  639.  "Sweet"
  640.  "Sweet"
  641.  "Syrah"
  642.  "Syrah"
  643.  "Taminga"
  644.  "Taminga"
  645.  "Tawny"
  646.  "Tawny"
  647.  "Tokay"
  648.  "Tokay"
  649.  "Traminer"
  650.  "Traminer"
  651.  "Unoaked"
  652.  "Unoaked"
  653.  "Unwooded"
  654.  "Unwooded"
  655.  "Verdelho"
  656.  "Verdelho"
  657.  "Viognier"
  658.  "Viognier"
  659.  "White"
  660.  "White"
  661.  "Zinfandel"
  662.  "Zinfandel"
  663. 999 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
  664. Barbera
  665. Barbera
  666. Blanc
  667. Blanc
  668. Botrytis
  669. Botrytis
  670. Burgundy
  671. Burgundy
  672. Cabernet
  673. Cabernet
  674. Cabernet
  675. Cabernet
  676. Chambourcin
  677. Chambourcin
  678. Chardonnay
  679. Chardon
  680. Chenin
  681. Chenin
  682. Claret
  683. Claret
  684. Classic
  685. Classic
  686.     Colombard
  687.     Colombard
  688. Coonawarra Red
  689. Coonawarra Red
  690. Durif
  691. Franc
  692. Franc
  693. Frontignac
  694. Frontignac
  695. Gamay
  696. Gamay
  697. rztraminer
  698. rztraminer
  699. Grenache
  700. Grenache
  701.     Hermitage
  702.     Hermitage
  703. Liqueur
  704. Liqueur
  705. Malbec
  706. Malbec
  707. Marlborough
  708. Marlborough
  709. Marsanne
  710. Marsanne
  711. Merlot
  712. Merlot
  713. Methode
  714. Methode
  715. Meunier
  716. Meunier
  717.     Mourvedre
  718.     Mourvedre
  719. Muscat
  720. Muscat
  721. thode
  722. thode
  723. Oaked
  724. Oaked
  725. Petit
  726. Petit
  727. Pinot
  728. Pinot
  729. Rosato
  730. Rosato
  731.     Roussanne
  732.     Roussanne
  733. Sangiovese
  734. Sangiovese
  735.     Sauvignon
  736.     Sauvignon
  737. Semillon
  738. Semillon
  739. Sherry
  740. Sherry
  741. Shiraz
  742. Shiraz
  743.     Sparkling
  744.     Sparkling
  745. Sweet
  746. Sweet
  747. Syrah
  748. Syrah
  749. Taminga
  750. Taminga
  751. Tawny
  752. Tawny
  753. Tokay
  754. Tokay
  755. Traminer
  756. Traminer
  757. Unoaked
  758. Unoaked
  759. Unwooded
  760. Unwooded
  761. Verdelho
  762. delho
  763. Viognier
  764. Viognier
  765. White
  766. White
  767.     Zinfandel
  768.     Zinfandel
  769. 222222222222222222222222222222222222222222222222222222222222
  770.  "Bin "
  771.  1) > 0 
  772.  "Bin "
  773.  1) < 
  774.  "Bin "
  775.  "Blanc"
  776.  1) > 0 
  777.  "Blanc"
  778.  1) < 
  779.  "Blanc"
  780. Blanc
  781. Blanc
  782. Blanc
  783.  "Burgundy"
  784.  1) > 0 
  785.  "Burgundy"
  786.  1) < 
  787.  "Burgundy"
  788. Burgundy
  789. Burgundy
  790. Burgundy
  791.  "Cabernet"
  792.  1) > 0 
  793.  "Cabernet"
  794.  1) < 
  795.  "Cabernet"
  796. Cabernet
  797. Cabernet
  798. Cabernet
  799.  "Chardonnay"
  800.  1) > 0 
  801.  "Chardonnay"
  802.  1) < 
  803.  "Chardonnay"
  804. Chardonnay
  805. Chardonnay
  806. Chardonnay
  807.  "Coonawarra"
  808.  1) > 0 
  809.  "Coonawarra"
  810.  1) < 
  811.  "Coonawarra"
  812. Coonawarra
  813. Coonawarra
  814. Coonawarra
  815.  "Cuv
  816.  1) > 0 
  817.  "Cuv
  818.  1) < 
  819.  "Cuv
  820.  "Dry"
  821.  1) > 0 
  822.  "Dry"
  823.  1) < 
  824.  "Dry"
  825.  "Franc"
  826.  1) > 0 
  827.  "Franc"
  828.  1) < 
  829.  "Franc"
  830. Franc
  831. Franc
  832. Franc
  833.  "Fum
  834.  1) > 0 
  835.  "Fum
  836.  1) < 
  837.  "Fum
  838.  "Grenache"
  839.  1) > 0 
  840.  "Grenache"
  841.  1) < 
  842.  "Grenache"
  843. Grenache
  844. Grenache
  845. Grenache
  846.  "Liqueur"
  847.  1) > 0 
  848.  "Liqueur"
  849.  1) < 
  850.  "Liqueur"
  851. Liqueur
  852. Liqueur
  853. Liqueur
  854.  "Malbec"
  855.  1) > 0 
  856.  "Malbec"
  857.  1) < 
  858.  "Malbec"
  859. Malbec
  860. Malbec
  861. Malbec
  862.  "Merlot"
  863.  1) > 0 
  864.  "Merlot"
  865.  1) < 
  866.  "Merlot"
  867. Merlot
  868. Merlot
  869. Merlot
  870.  "Muscat"
  871.  1) > 0 
  872.  "Muscat"
  873.  1) < 
  874.  "Muscat"
  875. Muscat
  876. Muscat
  877. Muscat
  878.  "Pinot "
  879.  1) > 0 
  880.  "Pinot "
  881.  1) < 
  882.  "Pinot "
  883. Pinot 
  884. Pinot 
  885. Pinot 
  886.  "Port"
  887.  1) > 0 
  888.  "Port"
  889.  1) < 
  890.  "Port"
  891.  "Riesling"
  892.  1) > 0 
  893.  "Riesling"
  894.  1) < 
  895.  "Riesling"
  896. Riesling
  897. Riesling
  898. Riesling
  899.  "Sauvignon"
  900.  1) > 0 
  901.  "Sauvignon"
  902.  1) < 
  903.  "Sauvignon"
  904.     Sauvignon
  905.     Sauvignon
  906.     Sauvignon
  907.  "Semillon"
  908.  1) > 0 
  909.  "Semillon"
  910.  1) < 
  911.  "Semillon"
  912. Semillon
  913. Semillon
  914. Semillon
  915.  "Tokay"
  916.  1) > 0 
  917.  "Tokay"
  918.  1) < 
  919.  "Tokay"
  920. Tokay
  921. Tokay
  922. Tokay
  923.  "White"
  924.  1) > 0 
  925.  "White"
  926.  1) < 
  927.  "White"
  928. White
  929. White
  930. White
  931. 2 = 999
  932. 0) - 
  933. 2 + 1)))
  934. Ph2b{now we know the number of words found for the wine name (might be 0 if not found) AND the variety (might be 0 if not found)c'
  935. 1 = 0
  936. 0) - 
  937. 3 <= 3
  938. 0) - 
  939.